r_i_text <- function(data_set,var_or,var2add,n_rep){
  for (i in 1:nrow(data_set)) {
    for (j in 1:n_rep) {
      data_set[i,grepl(var_or,colnames(data_set))] <- paste(data_set[i,grepl(var_or,colnames(data_set))],
                                                            data_set[i,grepl(var2add,colnames(data_set))],sep=" ")
    }
  }
  return(data_set)
}
